﻿<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%
  const_AccessDatabase="/qingtianwapqt3gcom/3gqingtian.mdb"
%>
<%
Dim Conn,Conn3

On Error Resume Next

	
	set Conn=Server.CreateObject ("Adodb.Connection")
	Conn.Open "provider=microsoft.jet.oledb.4.0;" & "data source = " & server.mappath(""&const_AccessDatabase&"")


If Err Then
err.Clear
        Response.ContentType = "text/vnd.wap.wml; charset=utf-8"
        Response.Write "<?xml version='1.0' encoding='utf-8'?>"
        Response.Write "<!DOCTYPE wml PUBLIC '-//WAPFORUM//DTD WML 1.2//EN' 'http://www.wapforum.org/DTD/wml12.dtd'>"
        Response.Write "<wml>"
        Response.Write "<head>"
        Response.Write "<meta http-equiv='Cache-Control' content='ust-revalidate' forua='true'/>"
        Response.Write "<meta http-equiv='Cache-Control' content='no-cache' forua='true'/>"
        Response.Write "<meta http-equiv='Cache-Control' content='max-age=0' forua='true'/>"
        Response.Write "<meta http-equiv='Expires' content='0' forua='true'/>"
        Response.Write "<meta http-equiv='Pragma' content='no-cache' forua='true'/>"
        Response.Write "</head>"
	Response.Write "<card id='index' title='数据库出错'>"
	Response.Write "<p>数据库连接出错，请检查连接字符串。"
	Response.Write "</p></card></wml>"
	Response.end
End If%>